perm filename TSTX[M11,LCS]1 blob sn#406225 filedate 1978-12-29 generic text, type T, neo UTF8
SRT=12800;
INS 0 1; <  INSTRUMENT 1 
NOS P4 P3 B2 P5;
<OPT P4 P3 B2 F2 ;
OUT B2 B1;END; <  ALL PARAM NUMS ARE 2 LESS THAN IN BOOK!   
GEN 0 2 1    1  1;  <SINE WAVE  F1
INSTRUMENTS;   
SIMP 1 6  FREQ 3   ;
END; 
 
  < SINE .SCR  --  RANDOM NUMBER=     1
 PLAY;
 SIMP     0.000    .5     A     1450.0   F1
; FINISH; < SINE .SCR